#!/usr/bin/perl

# 定义一个数组
my @fruits = ("Apple", "Banana", "Cherry", "Date", "Elderberry");

# 使用foreach循环打印数组中的每个元素
foreach my $fruit (@fruits) {
    print "$fruit\n";
}
